home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 51 / Amiga Format CD51 (2000-03-10)(Future Publishing)(GB)[!][issue 2000-04].iso / -readerstuff- / richard_kapp / playlist < prev    next >
Text File  |  2000-01-31  |  874b  |  47 lines
  1. G4C;PlayLIST by Richard Kapp 1999 ; MUST BE IN THE FIRST(!) LINE
  2.  
  3. WINBIG 0 0 200 300 ""
  4. wintype 11110001
  5.  
  6.  
  7.  
  8. xonload
  9.  
  10. VARPATH "PlayGUI/*"
  11. lvuse PlayLIST 1
  12. lvmode SHOW                 ; change the lv mode on the fly
  13. tut = '$$lv.rec'            ; store current choice
  14. cutvar tut cut word 1 tut   ; because dir lvs have also the sizes etc
  15. file = '$MODPATH$module'
  16. guiopen PlayLIST
  17.  
  18. xonclose
  19.  
  20.         guiquit PlayLIST
  21.  
  22. varpath ''
  23.  
  24.  
  25.  
  26. XLISTVIEW 3 17 180 172 '' sel RAM: 0 DIR ; start off with dir lv
  27. GadID 1
  28. gadfont XHelvetica.font 11 000
  29. cutvar sel cut word 1 sel             ; because dir lvs have also the sizes etc
  30. file = '$MODPATH$module'
  31.  
  32. update PlayLIST 2 'MODULE : $sel'
  33.  
  34. TEXT 2 1 275 15 "Choose a module.." 40 BOX
  35. GadID 2
  36.  
  37.  
  38. XBUTTON 183 17 93 19 'PLAY'
  39. if $file > ''
  40.    update PlayLIST 2 'Playing $sel ..'
  41.    *FILENAME = $file
  42.  
  43.    update PlayLIST 2 'MODULE : $sel'
  44. endif
  45.  
  46.  
  47.